home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / remind1a / frmspl~1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-27  |  2.8 KB  |  95 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H80000012&
  4.    BorderStyle     =   3  'Fester Dialog
  5.    ClientHeight    =   4560
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   7380
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    Moveable        =   0   'False
  17.    ScaleHeight     =   4560
  18.    ScaleWidth      =   7380
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  'Bildschirmmitte
  21.    Begin VB.Frame Frame1 
  22.       BackColor       =   &H80000012&
  23.       Height          =   4395
  24.       Left            =   150
  25.       TabIndex        =   0
  26.       Top             =   60
  27.       Width           =   7080
  28.       Begin VB.Timer Timer2 
  29.          Interval        =   4000
  30.          Left            =   1800
  31.          Top             =   3120
  32.       End
  33.       Begin VB.Timer Timer1 
  34.          Interval        =   2000
  35.          Left            =   1080
  36.          Top             =   3120
  37.       End
  38.       Begin VB.Label Label1 
  39.          BackColor       =   &H00000000&
  40.          Caption         =   "By Michael Hauck"
  41.          BeginProperty Font 
  42.             Name            =   "MS Sans Serif"
  43.             Size            =   12
  44.             Charset         =   0
  45.             Weight          =   400
  46.             Underline       =   0   'False
  47.             Italic          =   0   'False
  48.             Strikethrough   =   0   'False
  49.          EndProperty
  50.          ForeColor       =   &H0000FFFF&
  51.          Height          =   375
  52.          Left            =   4560
  53.          TabIndex        =   1
  54.          Top             =   3960
  55.          Width           =   2055
  56.       End
  57.       Begin VB.Image Image1 
  58.          Height          =   3735
  59.          Left            =   120
  60.          Picture         =   "frmSplash.frx":000C
  61.          Stretch         =   -1  'True
  62.          Top             =   120
  63.          Width           =   6855
  64.       End
  65.       Begin VB.Image Image2 
  66.          Height          =   3675
  67.          Left            =   120
  68.          Picture         =   "frmSplash.frx":4951E
  69.          Stretch         =   -1  'True
  70.          Top             =   240
  71.          Width           =   6855
  72.       End
  73.    End
  74. Attribute VB_Name = "frmSplash"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. Option Explicit
  80. Private Sub Form_KeyPress(KeyAscii As Integer)
  81.     Unload Me
  82. End Sub
  83. Private Sub Frame1_Click()
  84.     Unload Me
  85. End Sub
  86. Private Sub Timer1_Timer()
  87. Image1.Picture = Image2.Picture
  88. Timer1.Enabled = False
  89. End Sub
  90. Private Sub Timer2_Timer()
  91. Form2.Show
  92. Timer2.Enabled = False
  93. frmSplash.Hide
  94. End Sub
  95.